Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct02140.geo/00025.ls

Text File | 1997-03-19 | 4.4 KB | 201 lines

on startMovie
  Set_CDcounter(16)
  initLesson()
  CheckForTagWd()
end

on HideLastStep
  if Get_NEXT() = 10 then
    puppetSprite(13, 0)
    UpdateCursors(13, 0)
  end if
end

on TheinitCursor
  initCursorCastNum()
  initCursorList(1)
  set CursorCastNum to getCursor(2)
  cursor([CursorCastNum, CursorCastNum + 1])
end

on checkScreenStatus
  CheckRollOver()
  CheckSnakeStatus()
  go(the frame)
end

on BlinkNext
  if (the timer > getTimer()) and not soundBusy(2) then
    startTimer()
    if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
    else
      set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
    end if
  end if
end

on GoNext
  if not get_Disabled() then
    sound stop 2
    if Get_NEXT() = 1 then
      go("t1")
    else
      if Get_NEXT() = 2 then
        set_practiceNum(1)
        go("t1_blink")
      else
        if Get_NEXT() = 3 then
          go("t2")
        else
          if Get_NEXT() = 4 then
            set_practiceNum(2)
            go("t3")
          else
            if Get_NEXT() = 5 then
              set_practiceNum(3)
              go("t4")
            else
              if Get_NEXT() = 6 then
                set_practiceNum(4)
                go("t5")
              else
                if Get_NEXT() = 7 then
                  set_practiceNum(5)
                  go("t6_blink")
                else
                  if Get_NEXT() = 8 then
                    go("t7")
                  else
                    if Get_NEXT() = 9 then
                      go("t8")
                    else
                      if Get_NEXT() = 10 then
                        initAfterT8()
                        go("t8_blink")
                      else
                        if Get_NEXT() = 11 then
                          go("t9")
                        else
                          if Get_NEXT() = 12 then
                            go("t10")
                          else
                            GoEndMovie()
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  Set_NEXT(Get_NEXT() + 1)
end

on stopMovie
  sound stop 1
  unLoad()
  setEmptyCursor()
end

on GoEndMovie
  global ReturnToMenu
  PlaySound("GOSOUND.SO1")
  SaveSeenScreens()
  if (ReturnToMenu = "SUBJECT") and (Get_ScreenSubject() <> "11") and (Get_ScreenSubject() <> "00") then
    set theNum to integer(Get_ScreenSubject())
    go(1, "NCS" & Get_ScreenSubject() & "010.GEO")
  else
    if ReturnToMenu = "TOOL" then
      go(1, "NC_MM020.GEO")
    else
      if ReturnToMenu = "SECTION" then
        go(1, "NC_MM040.GEO")
      else
        if ReturnToMenu = "MAIN MENU" then
          go(1, "NC_MM010.GEO")
        else
          go(1, "NC_MM010.GEO")
        end if
      end if
    end if
  end if
end

on GoNextMovie
  SaveHilite()
  Add_CDcounter(1)
  set cdNum to Get_CDcounter()
  set movieName to item cdNum of Get_CurrentSnakeScreens()
  go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
end

on handleOKMail
  set the castNum of sprite 13 to the number of cast "OKMAIL"
  updateStage()
  initAfterT8()
  GoNext()
end

on initAfterT8
  set the puppet of sprite 13 to 0
  set the visible of sprite 14 to 1
end

on checkDoubleClick spriteNum
  global firstClickedSprite
  set theClick to 0
  if not get_oneClick() then
    set firstClickedSprite to spriteNum
    set_oneClick(1)
    set_lastClickTimer(the ticks)
  else
    if get_oneClick() and ((the ticks - get_lastClickTimer()) < 20) and (firstClickedSprite = spriteNum) then
      set_lastClickTimer(0)
      set theClick to 1
    else
      if (the ticks - get_lastClickTimer()) > 19 then
        set firstClickedSprite to spriteNum
        set_oneClick(1)
        set_lastClickTimer(the ticks)
      end if
    end if
  end if
  return theClick
end

on set_oneClick bool
  global oneClick
  set oneClick to bool
end

on get_oneClick
  global oneClick
  return oneClick
end

on set_lastClickTimer int
  global lastClickTimer
  set lastClickTimer to int
end

on get_lastClickTimer
  global lastClickTimer
  return lastClickTimer
end

on set_blinkHilite int
  global blinkHilite
  set blinkHilite to int
end

on get_blinkHilite
  global blinkHilite
  return blinkHilite
end